home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / b.sinus demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.6 KB  |  64 lines
  1. 10 :
  2. 20 :rem load sinus files
  3. 30 :
  4. 40 poke56,62:clr
  5. 50 dv=peek(186):ifdv<8thendv=8
  6. 60 sys57812"lsdemo.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  7. 70 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  8. 80 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
  9. 90 :
  10. 100 :rem setup variables
  11. 110 :
  12. 120 vi=53248:pg=64:sa=pg*256:sp=248
  13. 130 pokevi+32,0:pokevi+33,0
  14. 140 :
  15. 150 :rem setup sinus interrupt
  16. 160 :
  17. 170 syssa
  18. 180 :
  19. 190 :rem poke sprite data
  20. 200 :
  21. 210 fori=0to7
  22. 220 poke2040+i,248+i:rem sprite pointers
  23. 230 pokevi+39+i,i+1:rem sprite colors
  24. 240 pokevi+37,14:pokevi+38,15
  25. 250 next
  26. 260 pokevi+29,0:rem x size
  27. 270 pokevi+23,0:rem y size
  28. 280 pokevi+28,255:rem multicolor on
  29. 290 pokevi+37,1:rem multicolor 1
  30. 300 pokevi+38,2:rem multicolor 2
  31. 310 pokevi+21,255:rem turn sprites on
  32. 320 :
  33. 330 :rem program goes here
  34. 340 :
  35. 350 print"[147]":poke214,21:print:print"[159]   [208]ress [210], [211], [198], [216], [217], 1, 2, 3 or [209]
  36. 355 [151]214,10:[153]:[129]i[178]0[164]7
  37. 356 [153][163]24)"forsa+"6[170]i;[163]31)":    cmdcmdcmdcmdsys"[194](sa[170]6[170]i):[130]
  38. 360 [151]198,0
  39. 370 [161]a$:[139]a$[178]""[167]370
  40. 372 [139]a$[178]"r"[167][129]i[178]0[164]7:[151]sa[170]6[170]i,[181]([187](1)[172]40):[130]:[137]355
  41. 374 [139]a$[178]"s"[167][129]i[178]0[164]3:[151]sa[170]6[170]i,[194](sa[170]6[170]i)[173]2:[130]:[137]355
  42. 376 [139]a$[178]"f"[167][129]i[178]0[164]3:[151]sa[170]6[170]i,([194](sa[170]6[170]i)[172]2[170]1)[175]255:[130]:[137]355
  43. 380 [139]a$[178]"x"[167]x[178]1[171]x:[151]vi[170]29,255[172]x:[137]370
  44. 390 [139]a$[178]"y"[167]y[178]1[171]y:[151]vi[170]23,255[172]y:[137]370
  45. 400 [139]a$[178]"1"[167]c1[178](c1[170]1)[175]15:[151]vi[170]37,c1:[137]370
  46. 410 [139]a$[178]"2"[167]c2[178](c2[170]1)[175]15:[151]vi[170]38,c2:[137]370
  47. 420 [139]a$[178]"3"[167]c3[178](c3[170]1)[175]15:[129]i[178]0[164]7:[151]vi[170]39[170]i,c3:[130]:[137]370
  48. 430 [139]a$[178]"q"[167]480
  49. 440 [137]370
  50. 450 :
  51. 460 :[143] turn off sinus
  52. 470 :
  53. 480 [158]sa[170]3
  54. 490 :
  55. 500 :[143] return to loadstar
  56. 510 :
  57. 520 [151]53281,0:[151]53280,0
  58. 525 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  59. 530 [139]er[179][177]63[167][128]
  60. 540 [151]646,[194](53281):[153]"loadload"[199](34)"hello connect"[199](34)",8"
  61. 550 [153]"run"
  62. 560 [151]631,13:[151]632,13:[151]198,2:[128]
  63. 10000 [159]15,8,15,"s0:sinus demo":[160]15:[148]"sinus demo",8:[128]
  64.